home *** CD-ROM | disk | FTP | other *** search
- .key -sd/S
-
- if not exists MakePPClib.script
- echo "Please change first to the script's directory!"
- quit
- endif
-
- if "<-sd>" EQ ""
- set lbmodel large data
- set alibnam ppc.lib
- set fdflags ""
- set vcflags ""
- else
- set lbmodel small data
- set alibnam ppcs.lib
- set fdflags -sd
- set vcflags -sd
- endif
-
- echo "Checking for required commands. Stopping if missing.*N"
-
- failat 5
- echo noline "which : "
- which which ;stop if missing. :-)
- echo noline "copy : "
- which copy
- echo noline "delete : "
- which delete
- echo noline "execute : "
- which execute
- echo noline "join : "
- which join
- echo noline "list : "
- which list
- echo noline "fd2lib : "
- which fd2lib
- echo noline "vc : "
- which vc
- failat 20
-
- echo "*NCompiling $alibnam with $lbmodel model. This may take some time..."
-
- echo "*NCleaning T:..."
- delete t:($alibnam|#?.(s|o|dir)) quiet >nil:
-
- echo "*NProcessing FDs..."
-
- list >t:mkfds lformat="fd2lib $fdflags -of *"Creating %%cs...*" -o t: %s%s" ppc_lib.fd
-
- execute t:mkfds
- delete t:mkfds quiet
-
- echo "*NAssembling stubs..."
- vc $vcflags -c t:#?.s
-
- echo "*NRemoving obsolete assembler sources..."
- delete t:#?.s quiet
-
- echo "*NCompiling/Assembling support routines..."
- vc $vcflags -c #?.(c|s)
-
- echo "*NJoining everything together..."
- join #?.o t:#?.o to t:$alibnam
-
- echo "*NCleaning up..."
- delete t:#?.o quiet
-
- unset vcflags
- unset fdflags
- unset lbmodel
-
- set instto T:
-
- which >nil: ask
- if not warn
- ask "*NInstall $alibnam to vlib: (y/n)?"
- if warn
- set instto vlib:
- failat 21
- copy >nil: t:$alibnam $instto
- if not fail
- delete t:$alibnam quiet
- endif
- failat 20
- endif
- endif
-
- if exists ${instto}${alibnam}
- echo "*N*N...poooh... $alibnam can be found in ${instto}."
- else
- echo "*N*NInstallation error!"
- endif
-
- unset instto
- unset alibnam
-